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| 
| 
MODULE LIB_DATABASE ( ! Data base for Librarian command processor | 
LANGUAGE, (BL 18832), | 

IDENT = ‘v04-000' 


2 | 


vg 


BEGIN 


' 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!® ALL RIGHTS RESERVED 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
. PannisecRneee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- a RPORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONS 
't SOFTWARE ON EQUIPMENT WHIC 
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003 ABSTRACT: 

0037 1! The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 
0038 : command. It utilizes the Librarian procedure set to perform 
st the actual modifications to the Library. 

0041 i ENVIRONMENT : 

004 ! 

004 ' VAX native, user mode. 

0044 ! 

0045 len 

0046 ‘ 

0047 : 

nt : AUTHOR: Benn Schreiber, CREATION DATE: 12-June-1979 

9050 : MODIFIED BY: 

0052 1! v03-001 GJA0071 Greg Awdziewicz 6-Mar-1984 
0053 ! Allow text & shareable image Libraries’ keys to be as 
bod long as filenames. 

0056 1 | v02-005 RPG0045 Bob Grosso 7-Aug-1981 
0057 ! Support for /BEFORE and /SINCE 
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; 8 oo78 } Lib$Sgl_ctlmdk now a quadword 

: 60 060 1 | v02-004 RPGO044 Bob Grosso 21-Jul-1981 
: 2 tie : Support tparsing of create/compress options. 

: 8 Mite ii v02-003 RPGO036 Bob Grosso 4-Jun-1981 
3 C4 Boee : Modify create options for HISTORY. 

: 66 0066 1: v02-002 RPGO035 Bob Grosso 16-Apr-1981 
3 4 484 ' Add Listhead for update history module names, 

: 69 0069 1 v02-001 BLS0029 Benn Schreiber 23-Dec-1980 
: 4 Bee0 : . Add shareable image symbol table Library 

es 0072 1 

; F 00735 «(1 
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; 074 1 LIBRARY 

: 8 075 1 *SYSSLIBRARY:STARLET.L32'; 'System data structures 

is. p76 1 REQUIRE 

> a 77 1 *PREFIX'; 'Macro definitions 

;' 61 1 REQUIRE 

; 33 1 *LIBDEF'; 'Librarian structure defs. 

oe) 1 REQUIRE 

3 . 9321 : *LBRDEF'; 'Library processor defs. 

; 4 1148 1 EXTERNAL ROUTINE 

> =6«8BS 1144 1 Lib_delete_obj, ‘Delete an object module 

3 ® 1145 1 Lib_delete_mac, ‘Delete a macro module 

; § 11% 1 Lib_delete_hip, ‘Delete a help module 

; #8 1147 1 Lib_delete_txt, ‘Delete a text module 

; 1148 1 Lib_input_obj, ‘Input an object file 

; 1149 1 Lib_input_mac, ‘Input a macro file 

5 wi 1150 1 Lib_input_hlp, ‘Input a help file 

; 132) : Lib_input_txt; 'input a text file 

; 32 1188 : Global data 

; 1155 1 GLOBAL 

5; WF 1156 1 Lib$Sbefore_date : BLOCK §¢). ‘date from /BEFORE 

: «98 1157 1 Lib$Ssince date : BLOCK [2], ‘date from /SINCE 

; 99 1158 1 LibSal_rab : $ () ‘RAB for 1/0 

; 100 1159 1 Lib$gl_modnamix : INITIAL (1), ‘Index number for module names 

; «101 1160 1 Lib$gl_objgsdix : INITIAL (2), 'Index number for object qs¢ names 

: 102 1161 1 Lib$gl_recount, ‘Count of records inserte 

; 103 1168 1 Lib$gl_keysize, 'Max Length of keys in current Library 

> 104 11635 1 Lib$gl_Listwid, ‘Width of Listing Line from /WIDTH 

; 105 1164 1 Lib$Sgl_libctl, ‘Library control index 

: 106 1165 1 Lib$gl-ctlmsk : BLOCK (2), ‘Librarian control mask 

3; 107 1166 1 Lib$gl_tmpfdb : REF BBLOCK, ‘Temporary FDB pointer 

: 108 1167 1 Lib$gl_lLibfdb : REF BBLOCK, ‘Pointer to Library FDB 

; 109 1168 1 Lib$gl_outfdb : REF BBLOCK, ‘Pointer to output FDB 

; 110 1169 1 Lib$gl_inpfdb : REF BBLOCK, ‘Pointer to current input FDB 

s T9} 1170 1 Lib$Sgl_inplist : REF BBLOCK, ‘Pointer to input List FDB's 

s We 1171 «1 Lib$gl_lisfdb : REF BBLOCK ‘Pointer to Listing file FDB 
s 115 1178 1 Lib$gl_modupdl : VECTOR . ‘Listhead for Library update history module List 
> 114 1173 «1 Lib$gl_modlisl : VECTOR i 'Listhead for “‘lList only’ module List 

s 415 1174 1 Lib$gl_modxtrl : VECTOR 'Listhead for module extraction List 

3; «116 1175 (1 Lib$gl_objsyrml : VECTOR j, 'Listhead for symbols to remove from 

s 7 1176 1 ' object library 

; «118 1177 1 Lib$gl_delmodl : VECTOR (2), 'Listhead for module names to delete 

3; 6119 1178 #1 Lib$gl_cre8flags, jneegs bitvector indicates which options set by create 
: 120 1179 1 LibSal_creopts : VECTOR (6, LONG] !Options specifiable with /CREATE 

: 121 1180 1 INITIAL (LibSc_defblks,! number of blocks . : > 
: \s¢ 1181 1 Lib$c_defgbls, ! number of global symbols (object libraries) 
s ite 1186 1 Lib$Sc_cefmods, ! number of module names 

: 126 11835 «(1 0 ! keysize 

; 125 1184 1 Lib$c_defluhrec ! number of Library update history records 
3 136 BY 3 ’ Lib$Sc-defvertyp).! version number of library 

3 135 1187 ' } Table of month names as pointers to ASCIC strings 

: 19 1189 1 Lib$Sal_months : VECTOR C12, LONG) INITIAL 

3 131 1190 1 (CSTRING (‘JAN’), 
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-TITLE LIB_DATABASE 
-IDENT \v0%-000\ 


-PSECT S$PLITS,NOWRT ,NOEXE,2 


; «(189 1248 1 LibSal_inpdspat = fan ( : 
; 190 1249 1 '0 = not used : 
: 191 1250 1 Lib_input_obj, iobject ; 
: 136 1251 1 Lib_input_mac, 'macro ; 
; 1 ¢ 1 Liblinput_hlp, 'hel : 
; 194 1 1 Lib_input_txt, 'TEX : 
; 195 1254 1 Lib_input_obj 'Shareable image stb : 
: 196 1255 1 ), : 
; 197 1 28 1 LibSal_deldspat = PLIT ( : 
; 198 1257 1 0 ' not used : 
; 199 1258 1 \{b_delete_obj, lobject : 
; 200 1259 1 Lib_delete_mac, 'macro : 
; 201 1260 1 Lib_delete_hlp, ‘help : 
3 o¢ 1261 1 Lib_delete txt, ‘text : 
; ts : 6¢ : Lib_delete_obj 'Shareable image stb : 
: $08 1264 1 Lib$Sgl_allblks = LibSal_creopts Clib$c_opt_blks], !Number of blocks to allocate for file : 
3 $08 1265 1 Lib$gl_allgbls = LibSal_creopts Clib$c_opt_gbls], '!Number of global symbols to allocate ; 
; 207 1266 1 Lib$Sgl_allmods = LibSal_creopts (Clib$c_opt_mods], !Number of modules to allocate . 
; 208 1267 1 Lib$Sgl_allksz = Lib$al_creopts Clib$c_opt_kszJ, ‘Key size of entries : 
; 209 1268 1 Lib$gl_allhis = Lib$Sal_creopts Lib$c_opt_luhsd, 'Number of heh update history records 2 
; si? 1269 1 Lib$gl_allver = LibSal_creopts Clib$c_opt_verJ, '!Version type of library ; 
> 211 1270 1 Lib$Sgl_objmodix = Lib$gl_modnamix, ‘object module name index ; 
; sig 1271 1 Lib$gl_macmodix = Lib$gl_modnamix, ‘macro module name index ; 
ee 4. 1 % 1 Lib$gl_hlpmodix = Lib$gl_modnamix, ‘help module name index ; 
; sie \st? : Lib$Sgl_txtmodix = Lib$gl—-modnamix; 'text module name index | : 
: He 1275 1 END ! Of module 
3 ew 1276 0 ELUDOM | 

| 

| 


03 00000 P.AAA: .BYTE 3 g 
4E 41 4A 00001 eASCII \JAN\ 3 
03 00004 P.AAB: .BYTE 3 
42 45 “3 00005 eASCII \FEB\ ; 
03 00008 P.AAC: .BYTE ; 
52 41 4D 00009 eASCII \MAR\ F 
03 QQ00C P.AAD -BYTE ; 
52 50 41 3 ASCII \APR\ 3 
03 10 P.AAE BYTE - 
59 41 8 ot) ASCII \MAY\ : 
0 0014 P.AAF: .BYTE 3 3 
4—E 55 4A 3 1 eASCII \JUN\ 3 
03 18 P.AAG: .BYTE 3 : 
4C 55 4A 1 ASCII \JULN ; 
03 1C P.AAH: .BYTE : 
47 55 41 318 ASCII \AUG\ 3 
: P.AAL: .BYTE 3 3 
50 45 1 eASCII \SEPN\ 3 
4 P.AAJ: .BYTE 3 3 
54 43 4F H eASCII \OCT\ - 
03 00028 P.AAK: .BYTE 3 : 


LP BAT ABASE 
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56 GF 4 

43 45 44 

42 af 4F 2€ 

4A 42 4F 2E 

42 4C 4D 

52 41 4D «(OE 

40 6C 48 O€ 

50 4C 48 Oc 

de of 24 E 

54 58 54 OE 

42 ac 4 ge 

45 58 45 E 

4E 57 4F 4E 4B 4E 55 

06 

54 43 45 4A 42 a 

4F 52 43 41 4D 

04 

50 4C 45 48 

04 

54 58 45 24 

45 47 41 4D 49 20 4S 4C 42 41 45 52 41 4B 58 
45 4C 42 41 54 20 4C 4F 42 4D 59 5 20 
4a 45 GE 49 46 45 44 20 52 45 53 $8 
00000006 

00000000 

000000006 000000006 000000006 000000006 00000000 
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1 . 
14-Sep-1984 LIBRAR.SRCJDATABASE .B3 
9 -ASCII \NOV\ 
C P.AAL: .BYTE 3 
B ASCII \DEC\ 
P.AAM: .ASCII \.OLB\ 
P.AAN: .ASCII \.OBJ\ 
8 P.AAO: .ASCII \.MLB\ 
4 P.AAP: .ASCII \.MAR\ 
40 P.AAQ: .ASCII \.HLB\ 
44 PAAR: ASCII \.HLP\ 
0048 P.AAS: .ASCII \.TLB\ 
0 f P.AAT: .ASCII \.TXT\ 
8 2 P.AAU: .ASCII \.OLB\ 
4 P.AAV: .ASCII \.EXE\ 
$028 P.AAW: .BYTE 7 
00 eASCII \UNKNOWN\ 
0060 P.AAX: .BYTE 6 
0061 eASCII \OBJECT\ 
0067 P.AAY: .BYTE 5 
0068 ASCII \MACRO\ 
Q006D P.AAZ: .BYTE 4 
0006 eASCII = \HELPA 
00072 P.ABA: .BYTE 4 
0007 eASCII = \TEXT\ 
00077 P.ABB: .BYTE 28 
eth -ASCII \SHAREABLE IMAGE SYMBOL TABLE\ 
00094 P.ABC: .BYTE 12 
00095 «ASCII \USER DEFINED\ 
0O0A1 -BLKB 3 
OO0A4 LONG 6 
QOOA8 P.ABD: .LONG QO 
OOOAC -ADDRESS LIB INPUT OBJ, LIBLINPUT MAC, 
LIB_TNPUT_ALP, LIB_INPUT_TXT, 
LIB_INP UT70 OBJ 
000C0 -LONG 6 
000C4 P.ABE: .LONG 0 
000¢8 "ADDRESS LIB_DELETE OBJ, LIB _DELETE_M 
LIB_BELETE_ALP, LIB_BELETE erKT 


00000 LIBSBEFORE DATE: ; 

00008 LIBSSINCE DATE:: 

00010 LIBSAL_RAB: : 
BYTE 


CIB DELETE” OBJ 
-PSECT S$GLOBALS$,NOEXE ,2 


BLK 


31 


LAB DATABASE 


: 
0 


00000002 


LKB 
00000003 00000014 00000000 00000080 00000200 00000064 00088 LIBSAL_CREOPTS:: 


COOCoooooQooooooooo 


00058 
0005¢ 
00060 
00064 
00068 
0006C 
00074 
00078 
0007C 
00080 
00084 
00088 
0008C 
00094 
0009C 
000A4 
QOOAC 
00084 


NG 
LIBSGL NODNARIX: 
LIBSGL -0B)GSDIX: 
LIBSGL -RECOUNT: : 
LIBSGL _KEYSITE:: 
.BLKB 
LIBSGL_LISTWID:: 
LIBS$GL_LIBCTL:: 
-BLKB 
LIBSGL_CTLMSK:: 
LIBSGL_TMPFDB: : 
BLK 
LIBSGL_LIBFDB:: 
LIBSGL_OUTFDB:: 
.BLKB 
LIBSGL_ INPF DB: 
LIBSGL_ IAL IST 
LIBSGL Liste: : 
LIBSGL_MODUPOL: : 
LIBSGL -MODLISL:: 
LIBSGL -MODXTRL 
LIBSGL_OBJSYRML: 
.BLKB 
LIBSGL_DELMODL: : 
LKB 
LIBSGL_CRE gh! 


-LONG 


00000000' 00000000' 00000000° 00000000* 00000000" 00000000' 00000 LIBSAL_MONTHS: : 
ADDRESS P.AAA, P.AAB, P.AAC, P.AAD, P.AAE, 


"100, 512, 


: g AX-11 Bliss-32 V4.0-74 
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128, 0, 20, 3 


Page 


7 
(2) 


esas 


00000000" 00000000° 00000000' 00000000* 00000000' 00000000' 


00000000" 00000000° 


00000027 
00000021 
00000003 
00000002 


00000027 
00000000 
00000000 
00000001 


00000000' 


0000000F 
00000000 
00000006 
00000001 


00000000* 00000000° 


0000001F 
00000000 
00000000 
00000001 


0000001F 
00000021 
00000003 
00000002 


00000004 


00000000' 


00000000 
00000000 
00000000 
00000000 
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C 
00170 


. AAF 


"7- 
>> 


LIB_OBJ_DEFEXT:: 
-ADDRESS P.AAM 


«LONG 
ADDRESS P.AAN 
LIB_MAC_ DEFEXT:: 


-LON 
«ADDRESS P.AAO 


-LON 
ADDRESS P.AAP 
LIB_HLP_ DEFEXT:: 


ADDRESS P.AAQ 
NG 4 


~ ADDRESS P.AAR 
LIB_TXT_DEFEXT:: 


“ADDRESS P.AAS 


- LON 
ADDRESS P.AAT 
LIB_SHR ereattt 


“4 
"ADDRESS P.AAU 


- LON 
ADDRESS P.AAV 
LIBSAL_ TYPNAMES : 


nS 


» P.AAG, 


cj 


P.AAH, P.AAI, 


=32 V4.0-74 
DATABASE .B32;1 


P.AAJ, P.AAK, 


- ADDRESS ‘p, AAW, P.AAX, P.AAY, P.AAZ, P.ABA, - 
P.ABB, P.ABC 


LIBSGL_TYPE: 


. 4 
LIBSAL_ASCBINF:: 
6. HH, 


31, 15, 39, 39 


00188 LIBSAL_HDRLEN: : 

001A0 LIBSAL_IDXOPT:: ‘ 

00188 LIBSAL_NUMIDX: : 
LONG 0 


, >? > 2 eee! 
crererrnnnn 


33, 0, 0, 0, 33 
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TABASE =1386 01:49:50 VAX-11 Bliss-32 V4.0-74 
04=000 -S$ep-1984 12:37:59 CLIBRAR.SRCIJDATABASE .B32;1 
PSECT SUMMARY 
Name Bytes Attributes 
SGLOBALS$ 464 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 220 NOVEC *NOWRT . RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Se ene Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 35 0 581 00:01.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:DATABASE/OBJ=OBJ$:DATABASE MSRC$:DATABASE/UPDATE=(ENHS$: DATABASE ) 


Size: 0 code + a data bytes 
Run Time: 00:16.4 

Elapsed Time: o: 34.7 

Lines/CPU Min: 668 

onenee/ ies 54609 

ery Used: 149 pages 

Compilation Complete 
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